/* GUI CONVERTED from rtvrecfm.i (converter v1.76) Thu Sep  5 14:43:21 2002 */
/* rtvrecfm.i - rtv receipt form                                             */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                       */
/* All rights reserved worldwide.  This is an unpublished work.              */
/* $Revision: 1.8.1.5 $                                                         */
/*V8:ConvertMode=Maintenance                                                 */
/*  REVISION: 7.3      LAST MODIFIED: 03/15/93   BY: sas *G774*              */
/*  REVISION: 7.3      LAST MODIFIED: 10/24/94   BY: cdt *FS14*              */
/*  REVISION: 7.3      LAST MODIFIED: 03/16/95   BY: smp *F0N5*              */
/*  REVISION: 7.4      LAST MODIFIED: 04/28/95   BY: dpm *H0CZ*              */
/*  REVISION: 8.5      LAST MODIFIED: 07/22/96   BY: *J10B* Markus Barone    */
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane */
/* REVISION: 8.6E     LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan        */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan        */
/* REVISION: 9.1      LAST MODIFIED: 08/12/99   BY: *N014* Paul Johnson      */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00 BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 07/07/00   BY: *N0F9* Arul Victoria   */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00   BY: *N0KP* myb               */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* $Revision: 1.8.1.5 $    BY: dgc                   DATE: 09/03/02  ECO: *P0H9*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

FORM /*GUI*/ 
   line
   rmd_part
   pod_um
   rmd_qty_ord format "->>>,>>9.9<<<"
   label "Qty Ordered"
   rmd_price
   pod_disc_pct
with frame c width 80 clines down THREE-D /*GUI*/.


/* SET EXTERNAL LABELS */
setFrameLabels(frame c:handle).

FORM /*GUI*/ 
   
 RECT-FRAME       AT ROW 1.4 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1   COLUMN 3 NO-LABEL
 SKIP(.1)  /*GUI*/
serial             colon 15
   desc1              colon 50
   rmd_iss            colon 15     label "Inv Receipt"
   rmd_exp_date       colon 50     label "Required Date"
   rmd_qty_acp        colon 15     format "->>>,>>9.9<<<" no-attr-space
   label "Qty Received"
   rmd_cpl_date       colon 50     label "Received Date"
   from_site          colon 15     label "From Site"
   pod_acct          colon 44              space(0)
   pod_sub                        no-label space(0)
   pod_cc                          no-label
   space(0)
   pod_project                    no-label space(0)
   from_loc           colon 15     label "From Location"
   pod_lot_rcpt       colon 50
   to_site            colon 15     label "To Site"
   pod_type           colon 50
   to_loc             colon 15     label "To Location"
   rmd_rma_nbr        colon 50
   ext_price          colon 15
   rmd_rma_line       colon 50
   rmd_link           colon 50    label "Link"
 SKIP(.4)  /*GUI*/
with frame d side-labels width 80 attr-space
    NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-d-title AS CHARACTER.
 F-d-title = (getFrameTitle("ITEM_RECEIVED_FROM_SUPPLIER",38)).
 RECT-FRAME-LABEL:SCREEN-VALUE in frame d = F-d-title.
 RECT-FRAME-LABEL:WIDTH-PIXELS in frame d =
  FONT-TABLE:GET-TEXT-WIDTH-PIXELS(
  RECT-FRAME-LABEL:SCREEN-VALUE in frame d + " ", RECT-FRAME-LABEL:FONT).
 RECT-FRAME:HEIGHT-PIXELS in frame d =
  FRAME d:HEIGHT-PIXELS - RECT-FRAME:Y in frame d - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME d = FRAME d:WIDTH-CHARS - .5. /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame d:handle).

/* DIFFERENT LABELS ARE DISPLAYED FOR SAME VARIABLE, */
/* SO NEED TO ASSIGN LABELS MANUALLY.                */
if dynamic-function('getTranslateFramesFlag' in h-label) then
assign
   rmd_iss:label = getTermLabelRt("INVENTORY_RECEIPT",14)
   rmd_qty_acp:label = getTermLabelRt("QTY_RECEIVED",14).
